function StatusTabela (Tabela: TDataSet): String;
begin
  if Tabela.State = dsInactive then
     Result := 'Inativo'
  else if Tabela.State = dsBrowse then
     Result := 'Navegar'
  else if Tabela.State = dsEdit then
     Result := 'Editar'
  else if Tabela.State = dsInsert then
     Result := 'Inserir'
  else if Tabela.State = dsSetKey then
     Result := 'Chave'
  else if Tabela.State = dsCalcFields then
     Result := 'Calculando'
  else if Tabela.State = dsFilter then
     Result := 'Filtro'
  else if Tabela.State = dsNewValue then
     Result := 'Novo'
  else if Tabela.State = dsOldValue then
     Result := 'Valor Antigo'
  else if Tabela.State = dsCurValue then
     Result := 'Valor Corrente';
end;